home *** CD-ROM | disk | FTP | other *** search
/ com!online 2005 May / com_0505_1.iso / opensource / top10 / amc_install.exe / {app} / Scripts / Move field.ifs < prev    next >
Encoding:
Text File  |  2002-05-11  |  416 b   |  17 lines
  1. // SCRIPTING
  2. // Move the value from one field to another
  3. program MoveField;
  4. const
  5.   SourceField = -1;
  6.   TargetField = -1;
  7.   WholeFieldOnly = False;
  8. begin
  9.   if (SourceField = -1) or (TargetField = -1) then
  10.   begin
  11.     ShowMessage('Please modify the default value of "SourceField" and "TargetField"');
  12.     Error;
  13.   end;
  14.   SetField(TargetField, GetField(SourceField));
  15.   SetField(SourceField, '');
  16. end.
  17.